home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
comm
/
fido
/
xprfts072.lzh
/
upversion.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-09-15
|
747b
|
33 lines
/* Script to generate unique version numbers for Welmat */
if open('version',"version.data","R") then DO
Line=readln('version')
parse var Line Major Minor
close('version')
Major=strip(Major)
Minor=strip(Minor)
parse upper arg which
if which='MAJOR' then do
Major=Major+1
Minor=0
end
if which='MINOR' then do
Minor=Minor+1
end
say "Version "Major"."Minor
if open('version',"version.data","W") then DO
writeln('version',Major" "Minor)
close('version')
if open('version',"xprlibver.i","W") then DO
writeln('version',"; Keep track of version numbers.")
writeln('version','VERSION EQU '||Major)
writeln('version','REVISION EQU '||Minor)
close('version')
end
end
end